home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / 4dos / 4dos_btm.zip / BR.BTM next >
Text File  |  1992-03-06  |  2KB  |  123 lines
  1. : *** BR.btm *** control of Brief (with Restore) * rhc january 92 * (v 2.2)
  2.  
  3.  
  4. if  %1 == ?  goto SYNTAX
  5. goto CONT
  6.  
  7.  
  8. :SYNTAX  
  9.  
  10. gosub *_row ~ screen %row% 0
  11. text
  12.      syntax:  BR  [fil_1 [fil_2 ...]]
  13.  
  14.                   (fil_1: first  file to be edited, or
  15.                           ".ext" [use "state.EXT"],
  16.                    fil_2: second ...)
  17. endtext
  18. goto END
  19.  
  20.  
  21. :CONT
  22.  
  23. set   top=d:\brief
  24. set e_fil=%top%\rst\state
  25. set  fils=%&
  26. set no_xt=n
  27.  
  28. set bbackup=%top%\backup
  29. set   bfile=%top%\rst\state.rst
  30. set   bhelp=%top%\help
  31. set   bpath=%top%\macros
  32.  
  33. set    bflags=-Dega -i90 -l512 -M -mrestore -p -r -t -z
  34. set bpackages=bat,btm:r;c,cb,h,slt-c:t;doc,fax,lst,txt:wp
  35.  
  36.  
  37. : ## set EXT
  38.  
  39. iff  %1! ne !  then
  40.   iff  "%@substr[%1, 0, 1]" == "."  then
  41.     set  ext=%@substr[%1, 1, 3]
  42.     set fils= 
  43.   else
  44.     set ext=%@ext[%1]
  45.   endiff
  46. elseiff  %ext%! == !  then
  47.   set err_flg=0
  48.   call d:\util\bat\rd_fil %bfile% 7 [brief]
  49.   iff  %err_flg% == 1  then
  50.     set no_xt=y ~ goto OUT
  51.   endiff
  52. endiff
  53.  
  54.  
  55. : ## set state.EXT
  56.  
  57. iff  exist %e_fil%.%ext%  then
  58.   copy /q %e_fil%.%ext% %e_fil%.rst
  59. elseiff  %fils%! == !  then
  60.   gosub *_row ~ screen %row% 1
  61.   echo There is no "state.%ext%" file, mate !! ~ echo   ~
  62.   delay 2
  63.   set   ext=
  64.   set no_xt=y ~ goto OUT
  65. endiff
  66.  
  67. iff  %ext% == c  then
  68.   set btmp=%top%\swp
  69. else
  70.   set btmp=e:\
  71. endiff
  72.  
  73. if  %ext% == slt  set bcslt="d:\com\tlx\cs %%s"
  74.  
  75.  
  76. %top%\b %fils%
  77.  
  78.  
  79. goto OUT
  80.  
  81.  
  82. :*_row
  83. set row=%@eval[%_row + 1]
  84.  
  85. iff  %row% ge %_rows  then
  86.   cls
  87.   set row=2
  88.   goto *_row
  89. endiff
  90. return
  91.  
  92.  
  93. :OUT
  94.  
  95. cls
  96.  
  97. iff  exist %bbackup%\*.*  then
  98.   screen 2 0
  99.   *del /pq %bbackup%\*.*
  100.   cls
  101. endiff
  102.  
  103. if  %no_xt% == n  copy /q %e_fil%.rst %e_fil%.%ext%
  104.  
  105. set   bbackup=
  106. set     bcslt=
  107. set     bfile=
  108. set    bflags=
  109. set     bhelp=
  110. set bpackages=
  111. set     bpath=
  112. set      btmp=
  113. set     e_fil=
  114. set      fils=
  115. set     no_xt=
  116. set       top=
  117.  
  118.  
  119. :END
  120.  
  121. set err_flg=
  122. set     row=
  123.